3.2.55 \(\int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} (A+C \sec ^2(c+d x)) \, dx\) [155]

3.2.55.1 Optimal result
3.2.55.2 Mathematica [A] (verified)
3.2.55.3 Rubi [A] (verified)
3.2.55.4 Maple [A] (verified)
3.2.55.5 Fricas [A] (verification not implemented)
3.2.55.6 Sympy [F]
3.2.55.7 Maxima [F]
3.2.55.8 Giac [F]
3.2.55.9 Mupad [B] (verification not implemented)

3.2.55.1 Optimal result

Integrand size = 35, antiderivative size = 223 \[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=\frac {4 a (99 A+80 C) \tan (c+d x)}{495 d \sqrt {a+a \sec (c+d x)}}+\frac {2 a (99 A+80 C) \sec ^3(c+d x) \tan (c+d x)}{693 d \sqrt {a+a \sec (c+d x)}}+\frac {2 a C \sec ^4(c+d x) \tan (c+d x)}{99 d \sqrt {a+a \sec (c+d x)}}-\frac {8 (99 A+80 C) \sqrt {a+a \sec (c+d x)} \tan (c+d x)}{3465 d}+\frac {2 C \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \tan (c+d x)}{11 d}+\frac {4 (99 A+80 C) (a+a \sec (c+d x))^{3/2} \tan (c+d x)}{1155 a d} \]

output
4/1155*(99*A+80*C)*(a+a*sec(d*x+c))^(3/2)*tan(d*x+c)/a/d+4/495*a*(99*A+80* 
C)*tan(d*x+c)/d/(a+a*sec(d*x+c))^(1/2)+2/693*a*(99*A+80*C)*sec(d*x+c)^3*ta 
n(d*x+c)/d/(a+a*sec(d*x+c))^(1/2)+2/99*a*C*sec(d*x+c)^4*tan(d*x+c)/d/(a+a* 
sec(d*x+c))^(1/2)-8/3465*(99*A+80*C)*(a+a*sec(d*x+c))^(1/2)*tan(d*x+c)/d+2 
/11*C*sec(d*x+c)^4*(a+a*sec(d*x+c))^(1/2)*tan(d*x+c)/d
 
3.2.55.2 Mathematica [A] (verified)

Time = 0.90 (sec) , antiderivative size = 109, normalized size of antiderivative = 0.49 \[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=\frac {2 a \left (16 (99 A+80 C)+8 (99 A+80 C) \sec (c+d x)+6 (99 A+80 C) \sec ^2(c+d x)+5 (99 A+80 C) \sec ^3(c+d x)+350 C \sec ^4(c+d x)+315 C \sec ^5(c+d x)\right ) \tan (c+d x)}{3465 d \sqrt {a (1+\sec (c+d x))}} \]

input
Integrate[Sec[c + d*x]^4*Sqrt[a + a*Sec[c + d*x]]*(A + C*Sec[c + d*x]^2),x 
]
 
output
(2*a*(16*(99*A + 80*C) + 8*(99*A + 80*C)*Sec[c + d*x] + 6*(99*A + 80*C)*Se 
c[c + d*x]^2 + 5*(99*A + 80*C)*Sec[c + d*x]^3 + 350*C*Sec[c + d*x]^4 + 315 
*C*Sec[c + d*x]^5)*Tan[c + d*x])/(3465*d*Sqrt[a*(1 + Sec[c + d*x])])
 
3.2.55.3 Rubi [A] (verified)

Time = 1.29 (sec) , antiderivative size = 234, normalized size of antiderivative = 1.05, number of steps used = 14, number of rules used = 14, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.400, Rules used = {3042, 4577, 27, 3042, 4504, 3042, 4290, 3042, 4287, 27, 3042, 4489, 3042, 4279}

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a} \left (A+C \sec ^2(c+d x)\right ) \, dx\)

\(\Big \downarrow \) 3042

\(\displaystyle \int \csc \left (c+d x+\frac {\pi }{2}\right )^4 \sqrt {a \csc \left (c+d x+\frac {\pi }{2}\right )+a} \left (A+C \csc \left (c+d x+\frac {\pi }{2}\right )^2\right )dx\)

\(\Big \downarrow \) 4577

\(\displaystyle \frac {2 \int \frac {1}{2} \sec ^4(c+d x) \sqrt {\sec (c+d x) a+a} (a (11 A+8 C)+a C \sec (c+d x))dx}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 27

\(\displaystyle \frac {\int \sec ^4(c+d x) \sqrt {\sec (c+d x) a+a} (a (11 A+8 C)+a C \sec (c+d x))dx}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 3042

\(\displaystyle \frac {\int \csc \left (c+d x+\frac {\pi }{2}\right )^4 \sqrt {\csc \left (c+d x+\frac {\pi }{2}\right ) a+a} \left (a (11 A+8 C)+a C \csc \left (c+d x+\frac {\pi }{2}\right )\right )dx}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 4504

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \int \sec ^4(c+d x) \sqrt {\sec (c+d x) a+a}dx+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 3042

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \int \csc \left (c+d x+\frac {\pi }{2}\right )^4 \sqrt {\csc \left (c+d x+\frac {\pi }{2}\right ) a+a}dx+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 4290

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \int \sec ^3(c+d x) \sqrt {\sec (c+d x) a+a}dx+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 3042

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \int \csc \left (c+d x+\frac {\pi }{2}\right )^3 \sqrt {\csc \left (c+d x+\frac {\pi }{2}\right ) a+a}dx+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 4287

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \left (\frac {2 \int \frac {1}{2} \sec (c+d x) (3 a-2 a \sec (c+d x)) \sqrt {\sec (c+d x) a+a}dx}{5 a}+\frac {2 \tan (c+d x) (a \sec (c+d x)+a)^{3/2}}{5 a d}\right )+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 27

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \left (\frac {\int \sec (c+d x) (3 a-2 a \sec (c+d x)) \sqrt {\sec (c+d x) a+a}dx}{5 a}+\frac {2 \tan (c+d x) (a \sec (c+d x)+a)^{3/2}}{5 a d}\right )+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 3042

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \left (\frac {\int \csc \left (c+d x+\frac {\pi }{2}\right ) \left (3 a-2 a \csc \left (c+d x+\frac {\pi }{2}\right )\right ) \sqrt {\csc \left (c+d x+\frac {\pi }{2}\right ) a+a}dx}{5 a}+\frac {2 \tan (c+d x) (a \sec (c+d x)+a)^{3/2}}{5 a d}\right )+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 4489

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \left (\frac {\frac {7}{3} a \int \sec (c+d x) \sqrt {\sec (c+d x) a+a}dx-\frac {4 a \tan (c+d x) \sqrt {a \sec (c+d x)+a}}{3 d}}{5 a}+\frac {2 \tan (c+d x) (a \sec (c+d x)+a)^{3/2}}{5 a d}\right )+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 3042

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \left (\frac {\frac {7}{3} a \int \csc \left (c+d x+\frac {\pi }{2}\right ) \sqrt {\csc \left (c+d x+\frac {\pi }{2}\right ) a+a}dx-\frac {4 a \tan (c+d x) \sqrt {a \sec (c+d x)+a}}{3 d}}{5 a}+\frac {2 \tan (c+d x) (a \sec (c+d x)+a)^{3/2}}{5 a d}\right )+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

\(\Big \downarrow \) 4279

\(\displaystyle \frac {\frac {1}{9} a (99 A+80 C) \left (\frac {6}{7} \left (\frac {\frac {14 a^2 \tan (c+d x)}{3 d \sqrt {a \sec (c+d x)+a}}-\frac {4 a \tan (c+d x) \sqrt {a \sec (c+d x)+a}}{3 d}}{5 a}+\frac {2 \tan (c+d x) (a \sec (c+d x)+a)^{3/2}}{5 a d}\right )+\frac {2 a \tan (c+d x) \sec ^3(c+d x)}{7 d \sqrt {a \sec (c+d x)+a}}\right )+\frac {2 a^2 C \tan (c+d x) \sec ^4(c+d x)}{9 d \sqrt {a \sec (c+d x)+a}}}{11 a}+\frac {2 C \tan (c+d x) \sec ^4(c+d x) \sqrt {a \sec (c+d x)+a}}{11 d}\)

input
Int[Sec[c + d*x]^4*Sqrt[a + a*Sec[c + d*x]]*(A + C*Sec[c + d*x]^2),x]
 
output
(2*C*Sec[c + d*x]^4*Sqrt[a + a*Sec[c + d*x]]*Tan[c + d*x])/(11*d) + ((2*a^ 
2*C*Sec[c + d*x]^4*Tan[c + d*x])/(9*d*Sqrt[a + a*Sec[c + d*x]]) + (a*(99*A 
 + 80*C)*((2*a*Sec[c + d*x]^3*Tan[c + d*x])/(7*d*Sqrt[a + a*Sec[c + d*x]]) 
 + (6*((2*(a + a*Sec[c + d*x])^(3/2)*Tan[c + d*x])/(5*a*d) + ((14*a^2*Tan[ 
c + d*x])/(3*d*Sqrt[a + a*Sec[c + d*x]]) - (4*a*Sqrt[a + a*Sec[c + d*x]]*T 
an[c + d*x])/(3*d))/(5*a)))/7))/9)/(11*a)
 

3.2.55.3.1 Defintions of rubi rules used

rule 27
Int[(a_)*(Fx_), x_Symbol] :> Simp[a   Int[Fx, x], x] /; FreeQ[a, x] &&  !Ma 
tchQ[Fx, (b_)*(Gx_) /; FreeQ[b, x]]
 

rule 3042
Int[u_, x_Symbol] :> Int[DeactivateTrig[u, x], x] /; FunctionOfTrigOfLinear 
Q[u, x]
 

rule 4279
Int[csc[(e_.) + (f_.)*(x_)]*Sqrt[csc[(e_.) + (f_.)*(x_)]*(b_.) + (a_)], x_S 
ymbol] :> Simp[-2*b*(Cot[e + f*x]/(f*Sqrt[a + b*Csc[e + f*x]])), x] /; Free 
Q[{a, b, e, f}, x] && EqQ[a^2 - b^2, 0]
 

rule 4287
Int[csc[(e_.) + (f_.)*(x_)]^3*(csc[(e_.) + (f_.)*(x_)]*(b_.) + (a_))^(m_), 
x_Symbol] :> Simp[(-Cot[e + f*x])*((a + b*Csc[e + f*x])^(m + 1)/(b*f*(m + 2 
))), x] + Simp[1/(b*(m + 2))   Int[Csc[e + f*x]*(a + b*Csc[e + f*x])^m*(b*( 
m + 1) - a*Csc[e + f*x]), x], x] /; FreeQ[{a, b, e, f, m}, x] && EqQ[a^2 - 
b^2, 0] &&  !LtQ[m, -2^(-1)]
 

rule 4290
Int[(csc[(e_.) + (f_.)*(x_)]*(d_.))^(n_)*Sqrt[csc[(e_.) + (f_.)*(x_)]*(b_.) 
 + (a_)], x_Symbol] :> Simp[-2*b*d*Cot[e + f*x]*((d*Csc[e + f*x])^(n - 1)/( 
f*(2*n - 1)*Sqrt[a + b*Csc[e + f*x]])), x] + Simp[2*a*d*((n - 1)/(b*(2*n - 
1)))   Int[Sqrt[a + b*Csc[e + f*x]]*(d*Csc[e + f*x])^(n - 1), x], x] /; Fre 
eQ[{a, b, d, e, f}, x] && EqQ[a^2 - b^2, 0] && GtQ[n, 1] && IntegerQ[2*n]
 

rule 4489
Int[csc[(e_.) + (f_.)*(x_)]*(csc[(e_.) + (f_.)*(x_)]*(b_.) + (a_))^(m_)*(cs 
c[(e_.) + (f_.)*(x_)]*(B_.) + (A_)), x_Symbol] :> Simp[(-B)*Cot[e + f*x]*(( 
a + b*Csc[e + f*x])^m/(f*(m + 1))), x] + Simp[(a*B*m + A*b*(m + 1))/(b*(m + 
 1))   Int[Csc[e + f*x]*(a + b*Csc[e + f*x])^m, x], x] /; FreeQ[{a, b, A, B 
, e, f, m}, x] && NeQ[A*b - a*B, 0] && EqQ[a^2 - b^2, 0] && NeQ[a*B*m + A*b 
*(m + 1), 0] &&  !LtQ[m, -2^(-1)]
 

rule 4504
Int[(csc[(e_.) + (f_.)*(x_)]*(d_.))^(n_)*Sqrt[csc[(e_.) + (f_.)*(x_)]*(b_.) 
 + (a_)]*(csc[(e_.) + (f_.)*(x_)]*(B_.) + (A_)), x_Symbol] :> Simp[-2*b*B*C 
ot[e + f*x]*((d*Csc[e + f*x])^n/(f*(2*n + 1)*Sqrt[a + b*Csc[e + f*x]])), x] 
 + Simp[(A*b*(2*n + 1) + 2*a*B*n)/(b*(2*n + 1))   Int[Sqrt[a + b*Csc[e + f* 
x]]*(d*Csc[e + f*x])^n, x], x] /; FreeQ[{a, b, d, e, f, A, B, n}, x] && NeQ 
[A*b - a*B, 0] && EqQ[a^2 - b^2, 0] && NeQ[A*b*(2*n + 1) + 2*a*B*n, 0] && 
!LtQ[n, 0]
 

rule 4577
Int[((A_.) + csc[(e_.) + (f_.)*(x_)]^2*(C_.))*(csc[(e_.) + (f_.)*(x_)]*(d_. 
))^(n_)*(csc[(e_.) + (f_.)*(x_)]*(b_.) + (a_))^(m_), x_Symbol] :> Simp[(-C) 
*Cot[e + f*x]*(a + b*Csc[e + f*x])^m*((d*Csc[e + f*x])^n/(f*(m + n + 1))), 
x] + Simp[1/(b*(m + n + 1))   Int[(a + b*Csc[e + f*x])^m*(d*Csc[e + f*x])^n 
*Simp[A*b*(m + n + 1) + b*C*n + a*C*m*Csc[e + f*x], x], x], x] /; FreeQ[{a, 
 b, d, e, f, A, C, m, n}, x] && EqQ[a^2 - b^2, 0] &&  !LtQ[m, -2^(-1)] && 
!LtQ[n, -2^(-1)] && NeQ[m + n + 1, 0]
 
3.2.55.4 Maple [A] (verified)

Time = 1.40 (sec) , antiderivative size = 143, normalized size of antiderivative = 0.64

method result size
default \(\frac {2 \left (1584 A \cos \left (d x +c \right )^{5}+1280 C \cos \left (d x +c \right )^{5}+792 A \cos \left (d x +c \right )^{4}+640 C \cos \left (d x +c \right )^{4}+594 A \cos \left (d x +c \right )^{3}+480 C \cos \left (d x +c \right )^{3}+495 A \cos \left (d x +c \right )^{2}+400 C \cos \left (d x +c \right )^{2}+350 C \cos \left (d x +c \right )+315 C \right ) \sqrt {a \left (1+\sec \left (d x +c \right )\right )}\, \sec \left (d x +c \right )^{4} \tan \left (d x +c \right )}{3465 d \left (\cos \left (d x +c \right )+1\right )}\) \(143\)
parts \(\frac {2 A \left (16 \cos \left (d x +c \right )^{3}+8 \cos \left (d x +c \right )^{2}+6 \cos \left (d x +c \right )+5\right ) \sqrt {a \left (1+\sec \left (d x +c \right )\right )}\, \tan \left (d x +c \right ) \sec \left (d x +c \right )^{2}}{35 d \left (\cos \left (d x +c \right )+1\right )}+\frac {2 C \left (256 \cos \left (d x +c \right )^{5}+128 \cos \left (d x +c \right )^{4}+96 \cos \left (d x +c \right )^{3}+80 \cos \left (d x +c \right )^{2}+70 \cos \left (d x +c \right )+63\right ) \sqrt {a \left (1+\sec \left (d x +c \right )\right )}\, \tan \left (d x +c \right ) \sec \left (d x +c \right )^{4}}{693 d \left (\cos \left (d x +c \right )+1\right )}\) \(166\)

input
int(sec(d*x+c)^4*(A+C*sec(d*x+c)^2)*(a+a*sec(d*x+c))^(1/2),x,method=_RETUR 
NVERBOSE)
 
output
2/3465/d*(1584*A*cos(d*x+c)^5+1280*C*cos(d*x+c)^5+792*A*cos(d*x+c)^4+640*C 
*cos(d*x+c)^4+594*A*cos(d*x+c)^3+480*C*cos(d*x+c)^3+495*A*cos(d*x+c)^2+400 
*C*cos(d*x+c)^2+350*C*cos(d*x+c)+315*C)*(a*(1+sec(d*x+c)))^(1/2)/(cos(d*x+ 
c)+1)*sec(d*x+c)^4*tan(d*x+c)
 
3.2.55.5 Fricas [A] (verification not implemented)

Time = 0.28 (sec) , antiderivative size = 133, normalized size of antiderivative = 0.60 \[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=\frac {2 \, {\left (16 \, {\left (99 \, A + 80 \, C\right )} \cos \left (d x + c\right )^{5} + 8 \, {\left (99 \, A + 80 \, C\right )} \cos \left (d x + c\right )^{4} + 6 \, {\left (99 \, A + 80 \, C\right )} \cos \left (d x + c\right )^{3} + 5 \, {\left (99 \, A + 80 \, C\right )} \cos \left (d x + c\right )^{2} + 350 \, C \cos \left (d x + c\right ) + 315 \, C\right )} \sqrt {\frac {a \cos \left (d x + c\right ) + a}{\cos \left (d x + c\right )}} \sin \left (d x + c\right )}{3465 \, {\left (d \cos \left (d x + c\right )^{6} + d \cos \left (d x + c\right )^{5}\right )}} \]

input
integrate(sec(d*x+c)^4*(A+C*sec(d*x+c)^2)*(a+a*sec(d*x+c))^(1/2),x, algori 
thm="fricas")
 
output
2/3465*(16*(99*A + 80*C)*cos(d*x + c)^5 + 8*(99*A + 80*C)*cos(d*x + c)^4 + 
 6*(99*A + 80*C)*cos(d*x + c)^3 + 5*(99*A + 80*C)*cos(d*x + c)^2 + 350*C*c 
os(d*x + c) + 315*C)*sqrt((a*cos(d*x + c) + a)/cos(d*x + c))*sin(d*x + c)/ 
(d*cos(d*x + c)^6 + d*cos(d*x + c)^5)
 
3.2.55.6 Sympy [F]

\[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=\int \sqrt {a \left (\sec {\left (c + d x \right )} + 1\right )} \left (A + C \sec ^{2}{\left (c + d x \right )}\right ) \sec ^{4}{\left (c + d x \right )}\, dx \]

input
integrate(sec(d*x+c)**4*(A+C*sec(d*x+c)**2)*(a+a*sec(d*x+c))**(1/2),x)
 
output
Integral(sqrt(a*(sec(c + d*x) + 1))*(A + C*sec(c + d*x)**2)*sec(c + d*x)** 
4, x)
 
3.2.55.7 Maxima [F]

\[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=\int { {\left (C \sec \left (d x + c\right )^{2} + A\right )} \sqrt {a \sec \left (d x + c\right ) + a} \sec \left (d x + c\right )^{4} \,d x } \]

input
integrate(sec(d*x+c)^4*(A+C*sec(d*x+c)^2)*(a+a*sec(d*x+c))^(1/2),x, algori 
thm="maxima")
 
output
-16/3465*((cos(2*d*x + 2*c)^2 + sin(2*d*x + 2*c)^2 + 2*cos(2*d*x + 2*c) + 
1)^(1/4)*(11*(63*A*sin(6*d*x + 6*c) + 36*(4*A + 5*C)*sin(4*d*x + 4*c) + (9 
9*A + 80*C)*sin(2*d*x + 2*c))*cos(11/2*arctan2(sin(2*d*x + 2*c), cos(2*d*x 
 + 2*c) + 1)) - (693*A*cos(6*d*x + 6*c) + 396*(4*A + 5*C)*cos(4*d*x + 4*c) 
 + 11*(99*A + 80*C)*cos(2*d*x + 2*c) + 198*A + 160*C)*sin(11/2*arctan2(sin 
(2*d*x + 2*c), cos(2*d*x + 2*c) + 1)))*sqrt(a) - 3465*((A*d*cos(2*d*x + 2* 
c)^6 + A*d*sin(2*d*x + 2*c)^6 + 6*A*d*cos(2*d*x + 2*c)^5 + 15*A*d*cos(2*d* 
x + 2*c)^4 + 20*A*d*cos(2*d*x + 2*c)^3 + 3*(A*d*cos(2*d*x + 2*c)^2 + 2*A*d 
*cos(2*d*x + 2*c) + A*d)*sin(2*d*x + 2*c)^4 + 15*A*d*cos(2*d*x + 2*c)^2 + 
6*A*d*cos(2*d*x + 2*c) + 3*(A*d*cos(2*d*x + 2*c)^4 + 4*A*d*cos(2*d*x + 2*c 
)^3 + 6*A*d*cos(2*d*x + 2*c)^2 + 4*A*d*cos(2*d*x + 2*c) + A*d)*sin(2*d*x + 
 2*c)^2 + A*d)*integrate((((cos(14*d*x + 14*c)*cos(2*d*x + 2*c) + 6*cos(12 
*d*x + 12*c)*cos(2*d*x + 2*c) + 15*cos(10*d*x + 10*c)*cos(2*d*x + 2*c) + 2 
0*cos(8*d*x + 8*c)*cos(2*d*x + 2*c) + 15*cos(6*d*x + 6*c)*cos(2*d*x + 2*c) 
 + 6*cos(4*d*x + 4*c)*cos(2*d*x + 2*c) + cos(2*d*x + 2*c)^2 + sin(14*d*x + 
 14*c)*sin(2*d*x + 2*c) + 6*sin(12*d*x + 12*c)*sin(2*d*x + 2*c) + 15*sin(1 
0*d*x + 10*c)*sin(2*d*x + 2*c) + 20*sin(8*d*x + 8*c)*sin(2*d*x + 2*c) + 15 
*sin(6*d*x + 6*c)*sin(2*d*x + 2*c) + 6*sin(4*d*x + 4*c)*sin(2*d*x + 2*c) + 
 sin(2*d*x + 2*c)^2)*cos(9/2*arctan2(sin(2*d*x + 2*c), cos(2*d*x + 2*c))) 
+ (cos(2*d*x + 2*c)*sin(14*d*x + 14*c) + 6*cos(2*d*x + 2*c)*sin(12*d*x ...
 
3.2.55.8 Giac [F]

\[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=\int { {\left (C \sec \left (d x + c\right )^{2} + A\right )} \sqrt {a \sec \left (d x + c\right ) + a} \sec \left (d x + c\right )^{4} \,d x } \]

input
integrate(sec(d*x+c)^4*(A+C*sec(d*x+c)^2)*(a+a*sec(d*x+c))^(1/2),x, algori 
thm="giac")
 
output
sage0*x
 
3.2.55.9 Mupad [B] (verification not implemented)

Time = 27.43 (sec) , antiderivative size = 636, normalized size of antiderivative = 2.85 \[ \int \sec ^4(c+d x) \sqrt {a+a \sec (c+d x)} \left (A+C \sec ^2(c+d x)\right ) \, dx=-\frac {\sqrt {a+\frac {a}{\frac {{\mathrm {e}}^{-c\,1{}\mathrm {i}-d\,x\,1{}\mathrm {i}}}{2}+\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}}{2}}}\,\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}\,\left (-\frac {A\,16{}\mathrm {i}}{9\,d}+\frac {C\,256{}\mathrm {i}}{33\,d}+\frac {\left (176\,A+704\,C\right )\,1{}\mathrm {i}}{99\,d}\right )-\frac {A\,16{}\mathrm {i}}{9\,d}+\frac {C\,64{}\mathrm {i}}{9\,d}+\frac {\left (176\,A+704\,C\right )\,1{}\mathrm {i}}{99\,d}\right )}{\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}+1\right )\,{\left ({\mathrm {e}}^{c\,2{}\mathrm {i}+d\,x\,2{}\mathrm {i}}+1\right )}^4}-\frac {\sqrt {a+\frac {a}{\frac {{\mathrm {e}}^{-c\,1{}\mathrm {i}-d\,x\,1{}\mathrm {i}}}{2}+\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}}{2}}}\,\left (\frac {A\,32{}\mathrm {i}}{11\,d}+{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}\,\left (\frac {A\,32{}\mathrm {i}}{11\,d}-\frac {\left (32\,A+64\,C\right )\,1{}\mathrm {i}}{11\,d}\right )-\frac {\left (32\,A+64\,C\right )\,1{}\mathrm {i}}{11\,d}\right )}{\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}+1\right )\,{\left ({\mathrm {e}}^{c\,2{}\mathrm {i}+d\,x\,2{}\mathrm {i}}+1\right )}^5}+\frac {\left (\frac {A\,16{}\mathrm {i}}{5\,d}+{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}\,\left (\frac {A\,16{}\mathrm {i}}{5\,d}+\frac {\left (528\,A-320\,C\right )\,1{}\mathrm {i}}{1155\,d}\right )\right )\,\sqrt {a+\frac {a}{\frac {{\mathrm {e}}^{-c\,1{}\mathrm {i}-d\,x\,1{}\mathrm {i}}}{2}+\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}}{2}}}}{\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}+1\right )\,{\left ({\mathrm {e}}^{c\,2{}\mathrm {i}+d\,x\,2{}\mathrm {i}}+1\right )}^2}-\frac {\sqrt {a+\frac {a}{\frac {{\mathrm {e}}^{-c\,1{}\mathrm {i}-d\,x\,1{}\mathrm {i}}}{2}+\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}}{2}}}\,\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}\,\left (\frac {A\,16{}\mathrm {i}}{7\,d}-\frac {C\,7232{}\mathrm {i}}{693\,d}\right )+\frac {A\,16{}\mathrm {i}}{7\,d}-\frac {C\,64{}\mathrm {i}}{7\,d}\right )}{\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}+1\right )\,{\left ({\mathrm {e}}^{c\,2{}\mathrm {i}+d\,x\,2{}\mathrm {i}}+1\right )}^3}-\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}\,\sqrt {a+\frac {a}{\frac {{\mathrm {e}}^{-c\,1{}\mathrm {i}-d\,x\,1{}\mathrm {i}}}{2}+\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}}{2}}}\,\left (3168\,A+2560\,C\right )\,1{}\mathrm {i}}{3465\,d\,\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}+1\right )}-\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}\,\sqrt {a+\frac {a}{\frac {{\mathrm {e}}^{-c\,1{}\mathrm {i}-d\,x\,1{}\mathrm {i}}}{2}+\frac {{\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}}{2}}}\,\left (1584\,A+1280\,C\right )\,1{}\mathrm {i}}{3465\,d\,\left ({\mathrm {e}}^{c\,1{}\mathrm {i}+d\,x\,1{}\mathrm {i}}+1\right )\,\left ({\mathrm {e}}^{c\,2{}\mathrm {i}+d\,x\,2{}\mathrm {i}}+1\right )} \]

input
int(((A + C/cos(c + d*x)^2)*(a + a/cos(c + d*x))^(1/2))/cos(c + d*x)^4,x)
 
output
(((A*16i)/(5*d) + exp(c*1i + d*x*1i)*((A*16i)/(5*d) + ((528*A - 320*C)*1i) 
/(1155*d)))*(a + a/(exp(- c*1i - d*x*1i)/2 + exp(c*1i + d*x*1i)/2))^(1/2)) 
/((exp(c*1i + d*x*1i) + 1)*(exp(c*2i + d*x*2i) + 1)^2) - ((a + a/(exp(- c* 
1i - d*x*1i)/2 + exp(c*1i + d*x*1i)/2))^(1/2)*((A*32i)/(11*d) + exp(c*1i + 
 d*x*1i)*((A*32i)/(11*d) - ((32*A + 64*C)*1i)/(11*d)) - ((32*A + 64*C)*1i) 
/(11*d)))/((exp(c*1i + d*x*1i) + 1)*(exp(c*2i + d*x*2i) + 1)^5) - ((a + a/ 
(exp(- c*1i - d*x*1i)/2 + exp(c*1i + d*x*1i)/2))^(1/2)*(exp(c*1i + d*x*1i) 
*((C*256i)/(33*d) - (A*16i)/(9*d) + ((176*A + 704*C)*1i)/(99*d)) - (A*16i) 
/(9*d) + (C*64i)/(9*d) + ((176*A + 704*C)*1i)/(99*d)))/((exp(c*1i + d*x*1i 
) + 1)*(exp(c*2i + d*x*2i) + 1)^4) - ((a + a/(exp(- c*1i - d*x*1i)/2 + exp 
(c*1i + d*x*1i)/2))^(1/2)*(exp(c*1i + d*x*1i)*((A*16i)/(7*d) - (C*7232i)/( 
693*d)) + (A*16i)/(7*d) - (C*64i)/(7*d)))/((exp(c*1i + d*x*1i) + 1)*(exp(c 
*2i + d*x*2i) + 1)^3) - (exp(c*1i + d*x*1i)*(a + a/(exp(- c*1i - d*x*1i)/2 
 + exp(c*1i + d*x*1i)/2))^(1/2)*(3168*A + 2560*C)*1i)/(3465*d*(exp(c*1i + 
d*x*1i) + 1)) - (exp(c*1i + d*x*1i)*(a + a/(exp(- c*1i - d*x*1i)/2 + exp(c 
*1i + d*x*1i)/2))^(1/2)*(1584*A + 1280*C)*1i)/(3465*d*(exp(c*1i + d*x*1i) 
+ 1)*(exp(c*2i + d*x*2i) + 1))